﻿Imports System.Data.Common

Public Class Configuracion
    Public COD_MODULO, CODIGO, DESCRIPCION, VALOR As String

    Public Shared Function Actualizar(ByRef DOMINIO As String, ByRef EMAIL As String, _
                                      ByRef CLAVE As String, ByRef PUERTO As String) As Resultado
        Dim conexion As New ConexionBD.ConexionBD()
        Dim oResultado As New Resultado
        oResultado.ExisteError = conexion.Conectar()
        If oResultado.ExisteError Then
            Dim sentencia As String
            Dim ok As Boolean = False

            sentencia = "SP_CONFIG_EMAIL_U"

            conexion.ParametroEntrada = New List(Of DbParameter)
            conexion.ParametroEntrada.Add(ConexionBD.ConexionBD.ParamInString(conexion, DOMINIO, "DOMINIO"))
            conexion.ParametroEntrada.Add(ConexionBD.ConexionBD.ParamInString(conexion, EMAIL, "EMAIL"))
            conexion.ParametroEntrada.Add(ConexionBD.ConexionBD.ParamInString(conexion, CLAVE, "CLAVE"))
            conexion.ParametroEntrada.Add(ConexionBD.ConexionBD.ParamInString(conexion, PUERTO, "PUERTO"))

            conexion.ParametroEntrada.Add(ConexionBD.ConexionBD.ParamOutChar(conexion, "", "P_ERROR"))
            conexion.ParametroEntrada.Add(ConexionBD.ConexionBD.ParamOutString(conexion, "", "P_MENSAJE"))

            ok = conexion.EjecutarProcedimiento(sentencia)
            oResultado.ExisteError = conexion.ExisteError
            oResultado.Mensaje = conexion.mensaje

            conexion.Desconectar()
        End If
        Return oResultado
    End Function

    Public Shared Function ConsConfigEmail() As DataTable
        Dim conexion As New ConexionBD.ConexionBD()
        Dim dtConsulta As New DataTable
        If conexion.Conectar() Then
            Dim sentencia As String
            sentencia = "select * from CONFIGURACION where COD_MODULO=10"
            dtConsulta = conexion.Consulta(sentencia)
            conexion.Desconectar()
        End If
        Return dtConsulta
    End Function

End Class
